home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / BOXINBOX.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  3.3 KB  |  119 lines
  1. 5  CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 12  '***************** FORMATTED BOXES FOR PROGRAM USE   ***********************
  3. 16  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 18  'OPEN         FORMATTED BOXES WHICH CAN BE ALTERED OR MOVED BY CHANGES        OPEN
  5. 20  'OPEN                                                                         OPEN
  6. 22  'OPEN     This program provides four formatted "quick boxes" which may be     OPEN
  7. 24  'OPEN  moved to any place on the screen by changing the coordinates.  They    OPEN
  8. 26  'OPEN  may be changed in form by altering the CHR$ characters used for the    OPEN
  9. 28  'OPEN  corners, the tops and the sides.  The appropriate CHR$ character       OPEN
  10. 30  'OPEN  designation can be found in the table in Appendix G, IBM Basic Manual, OPEN
  11. 32  'OPEN  pages C12 and C13.     A color monitor version using different format- OPEN
  12. 33  'OPEN  ting is BOXINBOX.CLR (c) G I N A C O  -- 1983    Ver 5.1/160/320       OPEN
  13. 50  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  14. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  15. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  16. 60  CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT
  17. 100  SCREEN 0,0,0: WIDTH 80: CLEAR: KEY OFF: COLOR 7,0:LOCATE ,,0
  18. 110  REM ************************* SMALL CENTER BOX ***************************
  19. 120  CLS:COLOR 7,0
  20. 130  LOCATE 10,40
  21. 140  PRINT CHR$(201); CHR$(205); CHR$(205); CHR$(187)
  22. 150  LOCATE 11,40
  23. 160  PRINT CHR$(186);"  "; CHR$(186);
  24. 170  LOCATE 12,40
  25. 180  PRINT CHR$(200); CHR$(205); CHR$(205); CHR$(188)
  26. 190  
  27. 200  :REM ********************* BOX ROW 9-13, ROW 27-57 ***********************
  28. 210  FOR A! = 28 TO 56
  29. 220    COLOR 7,0
  30. 230    LOCATE 9,A!
  31. 240    PRINT CHR$(205)
  32. 250  NEXT
  33. 260  LOCATE 9,57
  34. 270  PRINT CHR$(187)
  35. 280  FOR B! = 10 TO 12
  36. 290    LOCATE B!,57
  37. 300    PRINT CHR$(186)
  38. 310  NEXT
  39. 320  LOCATE 13,57
  40. 330  PRINT CHR$(188)
  41. 340  FOR C! = 56 TO 28 STEP - 1
  42. 350    LOCATE 13,C!
  43. 360    PRINT CHR$(205)
  44. 370  NEXT
  45. 380  LOCATE 13,27
  46. 390  PRINT CHR$(200)
  47. 400  FOR D! = 12 TO 10 STEP - 1
  48. 410    LOCATE D!,27
  49. 420    PRINT CHR$(186)
  50. 430  NEXT
  51. 440  LOCATE 9,27
  52. 450  PRINT CHR$(201)
  53. 460  
  54. 470  :REM ****************  BOX ROW 7-17, COLUMN 18-66 *************************
  55. 480  FOR A! = 18 TO 66
  56. 490    COLOR 7,0
  57. 500    LOCATE 6,A!
  58. 510    PRINT CHR$(205)
  59. 520  NEXT
  60. 530  LOCATE 6,67
  61. 540  PRINT CHR$(187)
  62. 550  FOR B! = 7 TO 15
  63. 560    LOCATE B!,67
  64. 570    PRINT CHR$(186)
  65. 580  NEXT
  66. 590  LOCATE 16,67
  67. 600  PRINT CHR$(188)
  68. 610  FOR C! = 66 TO 18 STEP - 1
  69. 620    LOCATE 16,C!
  70. 630    PRINT CHR$(205)
  71. 640  NEXT
  72. 650  LOCATE 16,17
  73. 660  PRINT CHR$(200)
  74. 670  FOR D! = 15 TO 7 STEP - 1
  75. 680    LOCATE D!,17
  76. 690    PRINT CHR$(186)
  77. 700  NEXT
  78. 710  LOCATE 6,17
  79. 720  PRINT CHR$(201)
  80. 730  
  81. 740  :REM ********************* LARGEST OUTSIDE BOX ***************************
  82. 750  FOR A! = 10 TO 74
  83. 760    COLOR 7,0
  84. 770    LOCATE 3,A!
  85. 780    PRINT CHR$(205)
  86. 790  NEXT
  87. 800  LOCATE 3,75
  88. 810  PRINT CHR$(187)
  89. 820  FOR B! = 4 TO 18
  90. 830    LOCATE B!,75
  91. 840    PRINT CHR$(186)
  92. 850  NEXT
  93. 860  LOCATE 19,75
  94. 870  PRINT CHR$(188)
  95. 880  FOR C! = 74 TO 10 STEP - 1
  96. 890    LOCATE 19,C!
  97. 900    PRINT CHR$(205)
  98. 910  NEXT
  99. 920  LOCATE 19,9
  100. 930  PRINT CHR$(200)
  101. 940  FOR D! = 18 TO 4 STEP - 1
  102. 950    LOCATE D!,9
  103. 960    PRINT CHR$(186)
  104. 970  NEXT
  105. 980  LOCATE 3,9
  106. 990  PRINT CHR$(201)
  107. 1000   COLOR 7,0
  108. 1010  FOR I = 1 TO 100:NEXT
  109. 1020  LOCATE 4,20:PRINT"YOU CAN EXTRACT ANY BOX CODE AND USE IT ALONE."
  110. 1030  FOR I = 1 TO 900:NEXT
  111. 1040  LOCATE 5,17:PRINT"THE BEGINNING COLOR STATMENTS CAN BE SET AS DESIRED."
  112. 1050  FOR I = 1 TO 900:NEXT
  113. 1060  LOCATE 17,18:PRINT"THE COLOR WILL BE TURNED OFF BY THE END STATEMENT."
  114. 1070  FOR I = 1 TO 900:NEXT
  115. 1080  LOCATE 18,17:PRINT"BY CHANGING THE COORDINATES";CHR$(44);" YOU CAN MOVE THE BOXES."
  116. 1090  END
  117. 65000  REM ********************** SAVE ROUTINE ********************************
  118. 65100  SAVE"B:BOXINBOX.BAS"
  119.